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VSR ReR RARE TERE KE RAAT AAAAAAAAAAAEAAAAAAREAAAEAARAAERRAEEAAERE KATATE Eee 2 


‘@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS fo tke IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
ie ONLY IN ORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
Hed INCLUSION OF THE ABOVE gtd NOTICE. THIS SOFTWARE OR ANY OTH 
:* COPIES THEREOF oo rite BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 
tt OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER 
:* TRANSFERRED. 

‘® 

el He A oy phar IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NO 
Hl SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIP 


He CORPORATION. 


:* DIGITAL ASSUMES NO os Sete 


BI 
:* SOFTWARE ON EQUIPMENT WHICH I 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


eee ReR ARERR AAA ARAAAAAAAAAAAAAAAAAAAAAAAAAERARAAAEAAE KER AAAAAA eee 


lee 

i] 

FACILITY: MOUNT Utility Structure Level 1 
i ABSTRACT: 


the MOUNT utility. 
i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 29-Sep-1977 16:27 
i MODIFIED BY: 

v03-012 DASO0001 vid Solomon 09-Jul-1984 
Add / NOJREBUILD. que alifier. 

Add VC_SBMSEQNUM field to volume context value block. 


v03-011 HHO017 Hai Huang 03-May-1984 
Add BEGIN-END block around SURFACE_ERROR secrehedy. 


TIC 
MEN 


ITY FOR THE USE OR RELIABILITY OF ITS 


rats file contains definitions common to the modules that make up 


® 
® 
w 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
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v03-010 ACG0408 Andrew C. Goldstein, 22-Mar-1984 21:56 
Make APPLY_RVN and DEFAULT _RVN macros 


V03-009 HHN004 Hai Huang 09-Mar-1984 
Add /CLUSTER qualities for cluster-wide mount support. 


V03-008 MCNO136 Maria get C. Nasr “Ost t-1983 
Eliminate List of qual fiers for DISMOUNT since they 
are no longer needed with the new CLI interface. 


v03-007 CDS0001 Christian D. Saether 3-Aug-1983 
Define fields within the device lock value black. 
Define bit in stored_context field for xaqp. 


v03-006 MMD0187 Meg Dum 7-Jul-1983 9:59 
Make the default for AVEZAVR the same from the DCL call 
and from the system service call. 


v0O3-005 mmD0112 Meg Dumont, 29-Mar-1983 0:20 
Added bit definitions for new qualifiers on mount 
for AVL, AVR and new VMS tape protections. 


v03-004 $JT50311 Steven T. Jeffreys 25-Feb-1983 
Moved STORED_CONTEXT bit definitions to MOUDEF to 
prevent a proliferation of local definitions. 


v03-003 STJ0316 oe . dottroys 15-Aug-1982 
Add support for journaling qualifiers. 
v03-002 5119505 Steven T. Jeffreys 18-May-1982 


eplace the obsolete OPT “UNLOCK definition with the 
OF -NOUNLOAD definition.” 


v03-001 STJ0245 Steven T. Jeffre 04-Apr-1982 
= Add TIMER_EFN and MOUNT_EFN - teivless. 
= Add DO_I war macro. 


v02-017 S$TJ0155 Jeffreys 02-Jan-1982 
Added OPT NOCACHE. *OrT OUR LOCK, OPT _MESSAGE. "OPT _MOUNTVER 
bit definitons. 


R_E 
07k 


v02-016 STJ0016 Ste Jeffreys 30-Aug-1981 
Added OPT_SIGNAL bit “A tinitions” 
v02-015 $TJ0086 Steven T. dot trors 05-Aug-1981 
Changed ERR_EXIT macro to use LIBSSTOP. 
v02-014 STJ0035 Steven T. Jeffreys 11-May-1981 
Added support for gy /ASSIST qualifier. 
v02-013 $TJ0006 Steven T. Jeffreys 08-Apr-1981 


Change ERR_EXIT to SIGNAL rather than SIGNAL_STOP. 
Necessary Tor operator assisted mount. 


v02-012 ACG35282 Andrew C. Goldstein, 23-Jan-1981 14:12 
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Clean up SCB after ACP start failure 


v02-011 ACGO175 Andrew C. Goldstein, 23-May-1980 14:39 
Add 1/0 database lock cleanup flag 


v02-010 aceoie? Andrew C. Goldstein, 18-Apr-1980 13:38 


LITERAL 
SEQULST (OPT_,GBL,0,1 
, DENSITY.) ! /DENSITY switch s 
* (DENS. 800,) i YDENSITY:800 swite 
»(VID,S ' /VISUAL DENTIFICATION® Switch seen 
. (COMMENT, 4 ' /COMMENT switch — 
* (NOSHARE , ) ! /NOSHARE switch see 
» CEXPSHARE, ) i YSHARE or /NOSHARE seen explicitly 
a set ! /SHARE switch seen 
ROUP, ! /GROUP switch seen 
“ASYSTER,) ! /SYSTEM switch seen 
E,) i /WRITE switch seen 
NCOA AD,) ' /NOUNLOAD switch seen 
(NOUN. BAD, i /FOREIGN switch seen 
» (NOLABEL ,) ! /NOLABEL pyr ten seen 
» (EBC_DAT Th i /EBCDIC:DATA seen 
. (EBC-LABELS,) ! /EBCDIC: PABELS seen 
» (BLOCK ) ! /BLOCK switch seen 
» CKSIZE,) ! block size specified 
* PROTECT TON ) ! /PROTECTION by? teh seen 
; (OWNER_UIC,)5 i /OWNER UIC switch seen 
* (USER_OIC,5 i /USER_OIC switch s 
; COVR_EXP, 5 i /OVERRIDE: EXPIRATION: switch seen 
> COVR-SETID,) i /OVERRIDE:SETID s 
»(OVR_ID,) ! /OVERRIDE: IDENTIFICATIONS cote seen 
* (EXTENSION, ) i JEXTENSION switch seen 
INDOW,) ! /WINDOW ee ee 
; (ACCESSED,) i /ACCESSED switch s 
; (UNIQUEACP, ) i 7PROCESSOR:UNIGUE switch seen 
 (SAMEACP, ) ! /PROCESSOR:SAME switch seen 
» (FILEACP ! /PROCESSOR: filename switch seen 
> (LOG_NAME, ! Logical name specified 
, (DEVICE,) ' device none {seen 
» (LABEL 5 ' volume Label seen 
; (OVR_PRO,) i user is overr ding volume protection 
> (1S_FILES11,) ' volume is found to be Files-11 
(Is FILES116,) ' volume is found to be Files-11 Structure level 2 
, (READCHECK,) ' YDATAC CHECK: READ switch seen 
 (WRITECHECK,) ! /DATACHECK: WRITE switch seen 
» (RECORDSZ,) ! value switch see 
> (OVR_ACC, 5 i /OVERRIDE :ACCESSIBILITY 
* (DRIVES, 5 i /DRIVES: value switch seen 
- (BIND,) ! /BIND:structure_name switch seen 


Previous revision history moved to MOUNT.REV 


! Definitions of the option bits produced by the command parser. 
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j; 


(NOREBUILD,) 


of options legal for disk 


SEW EVIE III YY: 
>> >> 


DISK OPTIONS! = 
“OPT vi 


oP ouP 
“OPT_ “mite” 


oP 
“OPT~PROTECTION 
“OP VIC 


$ oO 
wv 
BEE) — 
moc 
x<uw 
z2=4mm 
om wzwmoS 
ze omxe 
“nog 
Sed | ol 
=] oO 


Ow 
“OPT-ACCESSED 
“OPT~ ite 

“OPT_ ACP 


* 
£ 
—. 

Yedast 2k 

Bon ¢8: 
mm 
>> 
o 
vv 


“OPT bevrce 
1*OPT"LABEL, 


DISK_OPTIONS2 = 


1* (OPT  READCHECK=32) i 
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volume must be —— into set 
apatite witch itch 

/DENS iqY: 00 sw = seen 
/NOHDRS switch s 
/CACHE=(EXTENT:n “FILE. ID:n,QUOTA:n) seen 
7CACHE=WRITE THROUGH seen 
/CACHE=NOEXTENT seen 
/CACHE=NOFILE_ID seen 
/CACHE=NOQUOTA seen 

/ASSIST seen 

/MESSAGE seen 

/NOCACHE seen 

AE Re 

A gel VERIF FICATION seen 


! JOURNAL 

‘ 7 JOURNALS (NEUE I E) seen 
/NOAU HS ty} I 

' /INITIALIZE=ALL switc 

! HINITIALLEESCONTINUAT IONS suitch seen 


C ait tch ge 


/OVERRIDE :OWNER_ IDENTIFIER switch seen 


i /Int ERCHANGE switch seen 


/NOREBUILD switch seen 
and tape. 


uvalifiers legal for disk 

Alb IDENTIFICATION suiteh seen 
switch <_< 

TMOSHARE switch se 

/SHARE or YNOSHARE seen explicitly 

/SHARE switch seen 


OWNER ae ms he ag meen 


~3 
ROCESSOR: UNIQUE sewitch seen 
iP ROCESSOR:SAME switch seen 
/PROCESSOR: filename switch seen 
Logical name specified 
device name seen 
volume Label seen 


ualifiers legal for disk, second long word 


DATACHECK: READ switch seen 
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OR 1, (OST Were CuECK=52) ! /DATACHECK: WRITE switch seen 
OR 1*(OPT_BIND=52 ' /BIND: structure name switch seen 
OR pg BINo= 38) vorune aust be Bound nto set 
7 - Si 
OR 1*(OPT_CACHE=32) ! /CACHE=(EXTENT:n “Fite 1: n,QUOTA:n) seen 
OR 1*(OPT_WTHRU- ! /CACHE=WRITE ROL 
OR 1*°(OPT_NOEXT_C- ! /CACHE=NOEXTE con 
OR 1*(OPT_NOFID_C-32) ! /CACHE=NOFILE_ID seen 
OR 1*(OPT_NOQUO C=32) ! /CACHE=NOQUOTA seen 
OR 1*(OPTLASSIST=3 ) ! /ASSIST seen 
St ASST nGentee-s6) | SRE teen 
= - : seen 
OR 1"(OPIZNOJRNL<52)- | /NOJOURNAL “seen ee” 
OR 1*(OPT -NEWJRNLS mf ; Seat icit ia seen 
OR 1°(OPT_ -hounty 2) |! /MOUNT_VERIFICATION seen 
OR 1*°(OP T-NO were 0- =32) ' /NOAUTOMATIC seen 
OR 1*(OPT_C 2) CLUSTER seen 


wi 
OR 1*°C(OPT “NOREBUILD=32) , ! /NOREBUILD seen 


TAPE_OPTIONS1 = } peli tiers tegal for tape 
1°OPT_DENSITY ! /DENSITY Y gyatcn seen 
OR 1*°OPT_DENS_800 ! /DENSITY:800 switc 
OR 1*OPT_VID ! /VISUAL IDENTIFICATIONS sutteh seen 
OR 1°OPT_COMMENT ' /COMMENT switch ae " 
OR 1“°OPT_NOSHARE ! /NOSHARE switch se 
OR 1*OPT_EXPSHARE ! /SHARE or YNOSHARE seen explicitly 
OR 1°OPT_WRITE ! /WRITE switch seen 
OR 1 a LO. ! /NOUNLOAD switch seen 
OR 1*OPT_FOREIGN ! /FOREIGN switch seen 
OR 1*OPT_NOL ! /NOLABEL switch seen 
: OR 1*OPT_EBC_DATA ! /EBCDIC:DATA seen 
: OR 1*OPT_EBC_ LABELS ! /EBCDIC:LABELS seen 
OR 1°OPT-BLOC ' /BLOCK switch seen 
OR 1*OPT_BLOCKSIZE ! block size specified 
OR 1*°OPT_PROTECTION ! /PROTECTION switch seen 
OR 1°OPT_OWNER ! /OWNER UIC vt bbe gl aan 
! OR 1*OPT_USER_DIC ! /USER_OIC switch 
OR 1°OPT_OVR_ ! /OVERRIDE: EXPIRATIO N switch seen 
OR 1“OPT_OVR_SETID ! /OVERRIDE:SETID sw 
OR 1*OPT_OVR_ ! /OVERRIDE: IDENTIFICATION switch seen 
OR 1*°OPT~OVR-VOLO ! /OVERRIDE: OWNER JOENT IF IER switch seen 
OR 1*OPT_UNIGUEACP ! /PROCESSOR: UNIQUE switch seen 
OR 1*OPT~SAMEAEP ! /PROCESSOR:SAME switch seen 
OR 1“°OPT_FILEACP ! /PROCESSOR: filename Sete seen 
OR 1°OPT_LOG_NAM ! Logical name specified 
OR 1°OPT_DEVICE ' device name seen 
OR 1°OPT"LABEL, ' volume label seen 
TAPE_OPTIONS2 = : wat itiers legal for tape. second long word 
1*(OPT_READCHE Ae TACHECK :RE D switch seen 
OR 1°(OPT_WRITECHECK- 2)/ /DATACHECK: WRITE E guises seen 
OR 1*°(OPT_RECORDSZ2-32) ! 1800" si tch seen 
OR 1*(OPT_DENS {6 S52) ! /DENSIT Y: switch seen 
OR 1*°(OPT-NOHDR3-32) ' /NOHDR 
OR 1*°(OPT_OVR_ACC-52) =! 7OVERRIDE: YACEESSISILITY switch seen 


r 
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! OR 1*(OPT pel ves= as} ! /DRIVES: value switch seen 
OR 1*(OPT-ASSIST- ' /ASSIST seen 
OR 1*(OPT_MOU MOUNTVER=- ¢) i /MOUNT_VERIFICATION seen 
OR 1*(OPT™ =NOAUTO=32) i /MESSAGE seen 
OR 1*(OPT i /NOAUTOMATIC ig? 
OR oe “IN 16-32) ' /INITIALIZE=AL 
OR 1*(OPT T-CONT= 2 i /INITIALI E=CONTINUATION seen 
OR 1° (OPT AT Gen 0-35}. i /OVERRIDE:OWNER_IDENTIFIER seen 
OR 1°(OPT “Ov. SLD i /INTERCHANGE seen 


! 
Masks of option bits to reset at end of disk mount loop. 


LITERAL 
RESET_OPTIONS1 = 


RESET OPTIONS2 = 

1*TOPT_OVR PRO-32) 
OR 1"(OpT- mt Rercesi i= 32) 
OR 1*(OPT"1S-FILES1 18-32) 
OR 1*(OPT “0 “BIND=32); 


! none in first word 


t 
Status bits used for exit processing. 


LITERAL 
CLF_DEALLOCATE = 1, ' iete ade DEVICE 
CLF _DELAQB = ¢- ! delete AQB 
CLF _DEASSMBX = 3, : seess ton mailbox 
CLF_DEASSTEMP = 4, ! deassign temporary channel 
_RELOCK = 5, ! restore index file write — 
CLF _DISMOUNT = 6, ! do full dismount to clea 
CLF-CLEARVALID = 7, ! clear volume valid bit on Te sture 
CLF-LOCKVOLUME = 8, ' Leave volume allocation locked 
REBUIL = 9 ! rebuild volume bitmaps 
CLECREBUILDQUO = 16, § rebuild volume set quota file 
CLF _UNLOCKDB Bie ' unlock 1/0 database 
CLF-CLEANSCB = 12; ! clear dirty bits in SCB 
i ; MAXIMUM VARIABLES 
LATERAL 
DEVMAX = 16, ‘MAXIMUM NUMBER OF DEVICES IN COMMAND 
LABMAX = 16; ‘MAXIMUM NUMBER OF LABELS IN COMMAND 


DEFINE LENGTH OF NAME STRING BUFFER 


LITERAL 
NAMEBUF_LEN = 32; ‘LENGTH OF NAME STRING BUFFER 


! Set processor IPL 


MACRO 


SET_IPL (LEVEL) = 
BEGIN 


' 
: Error 


MACRO 


Macro 
Macro 


MACRO 


Macro 
Macro 


MACRO 


' 
: Macro 


MACRO 
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R; 
(LEVEL), PRS_IPL) 


exit macro. 


ERR_EXIT itoer’ et 
SIGNAL STOP ( 


ERR_MESSAGE (J = 
SIGNAL (EREMAINING) 


used to signal fatal errors (internal consistency checks). 


BUG_CHECK (CODE, TYPE, MESSAGE) = 
BEGIN 


BUILTIN 
EXTERNAL sLITER RAL NAME (' BUGS_ y 


CODE); 
WW (ZNAME('BUGS_', CODE) OR™45 


to call the change mode to kernel system service. 
call format is ‘KERNEL_CALL (ROUTINE, ARG], ARG2, ... )"’. 


—— CALL (R) = 
eee Dalai SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE); 


BUILTIN 
SYS tania (R, .SP, X%LENGTH=1 
tif XLENGTH ty 1 ZTHEN , REMAINING %F1) 


to call the change mode to exec ayetes service. 
call format is ‘EXEC_CALL (ROUTINE, ARG], ARG2, ... )"’. 


EXEC CALL (R) = 

EXTERNAL ROUTINE SYSSCMEXEC : ADDRESSING_MODE (ABSOLUTE); 
SYSSCMEXEC (R, .SP, XLENGTH=1 
ali xiF TLENGTH CIR 1 XTHEN ,ZREMAINING X%F1) 


to generate a string and descriptor. 
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DESCRIPTOR (STRING) = 
UPLIT (ZCHARCOUNT (STRING), UPLIT BYTE (STRING))%; 


! 
Macro to declare parameter List for TPARSE action routines. 


MACRO 
TPARSE ARGS re = 
BUILTIN AP; 
IND NAME = AP : REF BBLOCK; 


; Structure for all SDL defined blocks. 


STRUCTURE 
BBLOCK CO, P, S, E: NJ = 


(BBLOCK+0)<P,S,E>, 
BBLOCKVECTOR fl. 0, P, S, E; N, BSI = 
((BBLOCKVECTOR+1*BS)+0)<P,S,E>; 
Macros to apply the current RVN to a file ID from the file structure, 
and default the RVN to zero when it is the current one. 
MACRO 


APPLY_RVN (RVN, CURRENT_RVN) = 
IF . (RVN)<0,8> EQL 0 
THEN ( pith Tg aoe : | CURRENT _RVN; 
IF "ANN <0, 6> L 1 
AND CURRENT Ww EO 0 
THEN CRUD <0” 8> 
END 
i, 
DEFAULT_RVN (RVN, CURRENT_RVN) = 


IF . (RVN) <0,8> Fat CURRENT _RVN 
THEN (RVN)<0,8 


Macro to evaluate a disk error status code as being a surface error 
(i.e., caused by the disk medium as opposed to the controller). 


MACRO 


eatin 731" (CODE) = 
BEGIN 


CODE EQL SS$_PARITY 
OR CODE EQL SS$~DATACHECK 
OR CODE EQL SS$~FORMAT 
OR CODE EQL SS$~FORCEDERROR 
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e 


Define a gti to represent the common event flag that will be 
specified (if necessary) for any 1/0 done within the SMOUNT and 
SDISMOU system services. 


ITERAL 
TIMER_EFN = $2: ! A reserved, system event flag 
MOUNT_EFN 6; ! A reserved, system event flag 


Define a macro that will be used by any and all modules in SMOUNT that 
want to do synchronous 1/0 via a direct $Q10. The macro is a convenient 
way to provide a $0]0-like interface to a routine that can tolerate some 
bizarre (mis)use of the event flags by the user. 


EYWORDMACRO 


DO_IO =. CEFN = MOUNT_EFN, ! Event flag to set on 1/0 completion (value) 
CHAN = 8. ' Channel to device (value) 
. SG, ' 1/0 function code (value) 
sB = Q, !' 1/0 status block (address) 
ASTADR = QO, ' Ast routine (address) 
ASTPRM = QO, ! Ast parameter (value) 
P1 = Q, ! Optional device/function parameter 
P = Q, ! ditto 
P = Q, ! ditto 
P4 = 0, ! ditto 
PS = Q, ! ditto 
he = 0 ! ditto 
= 


BEGIN 
EXTERNAL ROUTINE 
% : ADDRESSING_MODE (GENERAL); 
poeron_28 (EFN7 CHAN, FUNC, 10SB,ASTADR-ASTPRM,P1,P2,P3,P4,P5,P6) 


1 
: Define bitnames for the STORED_CONTEXT bitvector 
LITERAL 


TAPE _MOUNT = Q, ' was the first device a tape or disk 
OVERTDE_SOMETHING = 1, ! is something being overrided 
xQpP = 2; ! XQP is being used. 


: Define fields within the device allocation lock value block. 


FIELD 
dC = 


<> 


Define fields for volume lock 


FIELD 
vc 
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cvovcV7o7g 
Gen Gm 
a 
<= 
cs 
~ 


dC 
TES 


SET 
VC_NOTFIRST_MNT 

“NOALLOC 
VC"IBMA 
vc 


“OVR_PRO 
DC"OVR~OWNUIC 
DC“NOINTERLOCK 


DC_PROTECTION 
OWNER _UIC 


PVBN 
PVBN 


~VOLFREE 


VC"“VOLF 
VC" IDXF 
vC~SBMS 


ILEOF 
EQNUM 


= (2,0,16,0] 
= (4,0,32,0) 


value block. 


hnnhnnnn 
—OFLWMOO 
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L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


a: 


IT 
FI 


